home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / editor / edt10.lha / Beispiele / Oberon / Deutsch / GetNextErr_D.edt < prev    next >
Text File  |  1994-07-28  |  531b  |  28 lines
  1. /* .info: 16/06/93, 23:35:32, version 4 */
  2. OPTIONS RESULTS
  3. libname = "oberonsupport.library"
  4. IF ~show("L", libname) THEN DO
  5.   IF ~addlib(libname, 0, -30, 1) THEN DO
  6.     'title' "Fehler: konnete" libname "nicht öffnen."
  7.     exit
  8.   END
  9. END
  10.  
  11. i=GetClip("O2Err")
  12. IF i="" THEN DO
  13.   'title' "Kann aktuellen Fehler nicht anspringen."
  14.   exit
  15. END
  16. i=i+1
  17.  
  18. maxErr=GetClip("O2MaxErr")
  19. IF i>maxErr THEN DO
  20.   'title' "Keine weiteren Fehler."
  21.   exit
  22. END
  23.  
  24. errNum=GetClip("O2#"||i)
  25. 'GotoBookmark' i+30
  26. 'title' GetErrorText(errNum)
  27.  
  28. SetClip("O2Err",i)